home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 April: Mac OS SDK / Dev.CD Apr 99 SDK1.toast / Development Kits / Interfaces&Libraries / Universal / Interfaces / AIncludes / Retrace.a < prev    next >
Encoding:
Text File  |  1998-08-17  |  3.0 KB  |  135 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Retrace.a
  3. ;
  4. ;    Contains:    Vertical Retrace Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.2
  8. ;
  9. ;    Copyright:    © 1985-1993, 1995-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        For bug reports, consult the following page on
  12. ;                the World Wide Web:
  13. ;
  14. ;                    http://developer.apple.com/bugreporter/
  15. ;
  16. ;
  17.     IF &TYPE('__RETRACE__') = 'UNDEFINED' THEN
  18. __RETRACE__ SET 1
  19.  
  20.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  21.     include 'MacTypes.a'
  22.     ENDIF
  23.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  24.     include 'OSUtils.a'
  25.     ENDIF
  26.  
  27.  
  28.  
  29. ; typedef VBLTask *                        VBLTaskPtr
  30.  
  31. VBLTask                    RECORD 0
  32. qLink                     ds.l    1                ; offset: $0 (0)
  33. qType                     ds.w    1                ; offset: $4 (4)
  34. vblAddr                     ds.l    1                ; offset: $6 (6)
  35. vblCount                 ds.w    1                ; offset: $A (10)
  36. vblPhase                 ds.w    1                ; offset: $C (12)
  37. sizeof                     EQU *                    ; size:   $E (14)
  38.                         ENDR
  39. ;
  40. ; pascal QHdrPtr GetVBLQHdr(void )
  41. ;
  42.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  43.         Macro
  44.         _GetVBLQHdr           &dest=(sp)
  45.             move.l            #$00000160,&dest
  46.         EndM
  47.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  48.         IMPORT_CFM_FUNCTION GetVBLQHdr
  49.     ENDIF
  50.  
  51. ;
  52. ; pascal OSErr SlotVInstall(QElemPtr vblBlockPtr, short theSlot)
  53. ;
  54.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  55.         ; parameters:
  56.         ;    vblBlockPtr     => A0
  57.         ;    theSlot         => D0
  58.         ; returns:
  59.         ;    OSErr           <= D0
  60.         _SlotVInstall:    OPWORD    $A06F
  61.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  62.         IMPORT_CFM_FUNCTION SlotVInstall
  63.     ENDIF
  64.  
  65. ;
  66. ; pascal OSErr SlotVRemove(QElemPtr vblBlockPtr, short theSlot)
  67. ;
  68.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  69.         ; parameters:
  70.         ;    vblBlockPtr     => A0
  71.         ;    theSlot         => D0
  72.         ; returns:
  73.         ;    OSErr           <= D0
  74.         _SlotVRemove:    OPWORD    $A070
  75.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  76.         IMPORT_CFM_FUNCTION SlotVRemove
  77.     ENDIF
  78.  
  79. ;
  80. ; pascal OSErr AttachVBL(short theSlot)
  81. ;
  82.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  83.         ; parameters:
  84.         ;    theSlot         => D0
  85.         ; returns:
  86.         ;    OSErr           <= D0
  87.         _AttachVBL:    OPWORD    $A071
  88.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  89.         IMPORT_CFM_FUNCTION AttachVBL
  90.     ENDIF
  91.  
  92. ;
  93. ; pascal OSErr DoVBLTask(short theSlot)
  94. ;
  95.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  96.         ; parameters:
  97.         ;    theSlot         => D0
  98.         ; returns:
  99.         ;    OSErr           <= D0
  100.         _DoVBLTask:    OPWORD    $A072
  101.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  102.         IMPORT_CFM_FUNCTION DoVBLTask
  103.     ENDIF
  104.  
  105. ;
  106. ; pascal OSErr VInstall(QElemPtr vblTaskPtr)
  107. ;
  108.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  109.         ; parameters:
  110.         ;    vblTaskPtr      => A0
  111.         ; returns:
  112.         ;    OSErr           <= D0
  113.         _VInstall:    OPWORD    $A033
  114.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  115.         IMPORT_CFM_FUNCTION VInstall
  116.     ENDIF
  117.  
  118. ;
  119. ; pascal OSErr VRemove(QElemPtr vblTaskPtr)
  120. ;
  121.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  122.         ; parameters:
  123.         ;    vblTaskPtr      => A0
  124.         ; returns:
  125.         ;    OSErr           <= D0
  126.         _VRemove:    OPWORD    $A034
  127.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  128.         IMPORT_CFM_FUNCTION VRemove
  129.     ENDIF
  130.  
  131.  
  132.  
  133.     ENDIF ; __RETRACE__ 
  134.  
  135.